home *** CD-ROM | disk | FTP | other *** search
/ Exame Informatica 139 / Exame Informatica 139.iso / Revista / Flash / Uniform Server / diskw / usr / lib / CGI / eg / nph-multipart.cgi < prev    next >
Encoding:
Text File  |  2002-06-01  |  273 b   |  11 lines
  1. #!/usr/local/bin/perl
  2. use CGI qw/:push -nph/;
  3. $| = 1;
  4. print multipart_init(-boundary=>'----------------here we go!');
  5. while (1) {
  6.     print multipart_start(-type=>'text/plain'),
  7.     "The current time is ",scalar(localtime),"\n",
  8.     multipart_end;
  9.     sleep 1;
  10. }
  11.